home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / mrcry204.zip / GIBBS.EKA < prev    next >
Text File  |  1991-03-04  |  387b  |  17 lines
  1. ; Graphic demo of Gibbs phenomenon.
  2. ; Fourier series convergence is slowest near discontinuities.
  3.  
  4. ; the function
  5.  f(x) := SUM(SIN((2n+1)x)/(2n+1),n,1,20)
  6.  
  7. ; the domain for the plot
  8.  GBOUNDS 0, PI
  9.  PLOT f
  10.  
  11. ; Some commands which make the plot look nicer.
  12.  GSTYLE 1
  13.  GPOINTS 100
  14.  TITLE     "Gibbs phenomenon"
  15.  SUBTITLE  "for the square wave"
  16.  YLABEL    "20 Fourier terms"
  17.